home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 30 / PC Gamer IT CD 30 1-2.iso / MEDIA / UPDATE.DXR / fields_18_fld.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  842 b   |  28 lines
  1. on mouseDown
  2.   global gTB
  3.   set the visible of sprite 47 to 1
  4.   set x to doPopMenu(48, the left of sprite the clickOn, the top of sprite the clickOn)
  5.   if x > 0 then
  6.     put line x of field "Fields" into field "fld"
  7.   end if
  8.   if field "fld" = "All Shareware" then
  9.     go("findall")
  10.   end if
  11.   puppetSound(1, "sound4")
  12.   mSetCriteria(gTB, "category", "start", field "fld")
  13.   mSelect(gTB)
  14.   set n to mSelectCount(gTB)
  15.   if n <> 0 then
  16.     put n into field "NumberFound"
  17.     put mGetField(gTB, "category") into field "zcategory"
  18.     put mGetField(gTB, "name") into field "Name"
  19.     put mGetField(gTB, "filepath") into field "Path"
  20.     put mGetField(gTB, "description") into field "zdesc"
  21.     put mGetField(gTB, "url") into field "zurl"
  22.     put mGetField(gTB, "contact") into field "zspecial"
  23.   else
  24.     nothing()
  25.   end if
  26.   showSelection()
  27. end
  28.